home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / egs / egs-install / egs-system / install_egs7.1 < prev    next >
Encoding:
Text File  |  1995-04-18  |  5.2 KB  |  186 lines
  1. ; EGS System 7.1 Installation utility
  2.  
  3. (message "Welcome to the EGS System 7.1\n"
  4.          "This is not an official EGS Update. "
  5.          "It is just a collection of free available "
  6.          "EGS System 7 files and the older 6.2 installation. "
  7.          "I've put the things together to make it easer to "
  8.          "install System 7 to your machine. "
  9.          "This Archive does not include any drivers except "
  10.          "for Native Amiga and the EGSWB driver.\n\n"
  11.          "EGS is (c)1992-94 Viona\n"
  12.          "This archive was brought to you by Jürgen Schober\n"
  13.          "enjoy ...")
  14.  
  15. (set opt
  16.     (askoptions
  17.         (prompt "choose files to install : \n")
  18.         (choices "EGS-System7.1" "EGS-Tools" "EGS-Games" "EGS-Pictures")
  19.         (default 15)
  20.         (help @askoptions-help)
  21.     )
  22. )
  23.  
  24. (set Sys7  (BITAND opt 1))
  25. (set Tools (BITAND opt 2))
  26. (set Games (BITAND opt 4))
  27. (set Pics  (BITAND opt 8))
  28. ; * install the system itself
  29. (if Sys7
  30.     (
  31.         (set @dest (expandpath "sys:"))
  32.  
  33.         (copyfiles
  34.             (prompt "Installing EGS System 7.1...")
  35.             (source "EGS-System:")
  36.             (pattern "(egs-sys#?|lha)")
  37.             (dest   "ram:")
  38.             (help   @copyfiles-help)
  39.         )
  40.  
  41.         (set destination
  42.             (askdir
  43.                 (prompt "Where should I put the EGS System 7.1 ?\n"
  44.                         "(EGS Drawer will be created)")
  45.                 (help @askdir-help)
  46.                 (default @dest)
  47.             )
  48.         )
  49.  
  50.         (set destination (cat destination "EGS"))
  51.         (set @egsdir destination)
  52.         (run "lha x ram:egs-system.lha ram:")
  53.         (delete "ram:egs-system.lha")
  54.         (makedir destination
  55.             (prompt "Make EGS Directory")
  56.             (infos)
  57.             (help @makedir-help)
  58.         )
  59.  
  60.         (copyfiles
  61.             (prompt "Copy files to " destination)
  62.             (source "ram:EGS-System/")
  63.             (pattern "~(Env-Archive|Env-Archive.info)")
  64.             (dest destination)
  65.             (infos)
  66.             (help @copyfiles-help)
  67.         )
  68.  
  69.         (copyfiles
  70.             (prompt "copy the default settings into envarc:")
  71.             (source "ram:EGS-System/Env-Archive/")
  72.             (all)
  73.             (dest "envarc:")
  74.             (help @copyfiles-help)
  75.         )
  76.         (run "delete ram:EGS-Sys#? all")
  77.  
  78.         (askdisk
  79.             (prompt "Please insert 'EGS-Storage' in any Driver.")
  80.             (assigns)
  81.             (dest "EGS-Storage")
  82.             (help @askdisk-help)
  83.         )
  84.  
  85.         (copyfiles
  86.             (prompt "copy EGS-Storage.lha to ram:")
  87.             (source "EGS-Storage:EGS-Storage.lha")
  88.             (dest   "ram:")
  89.             (help   @copyfiles-help)
  90.         )
  91.         (run "ram:lha x ram:egs-storage.lha ram:")
  92.         (delete "ram:EGS-Storage.lha")
  93.         (copyfiles
  94.             (prompt "copy EGS-System 2 to EGS:")
  95.             (source "ram:EGS-Storage")
  96.             (all)
  97.             (dest destination)
  98.             (help @copyfiles-help)
  99.         )
  100.         (run "delete ram:EGS-Stor#? all")
  101.         (copyfiles
  102.             (source (cat destination "/Storage/Monitors/EGS"))
  103.             (dest "devs:Monitors")
  104.             (infos)
  105.         )
  106.         (run (cat "assign EGS: " destination))
  107.  
  108.         (if (= (exists (cat destination "/Startup") (noreq)) 0)
  109.             (makedir (cat destination "/Startup"))
  110.         )
  111.         (if (= (exists (cat destination "/Storage/Border") (noreq)) 0)
  112.             (makedir (cat destination "/Storage/Border"))
  113.         )
  114.         (if (= (exists (cat destination "/Storage/Driver") (noreq)) 0)
  115.             (makedir (cat destination "/Storage/Driver"))
  116.         )
  117.         (if (= (exists (cat destination "/Config/Border") (noreq)) 0)
  118.             (makedir (cat destination "/Config/Border"))
  119.         )
  120.     )
  121.     (
  122.         (exit)
  123.     )
  124. )
  125. (if Games
  126.     (
  127.         (copyfiles
  128.             (prompt "copy EGS-Games.lha to ram:")
  129.             (source "EGS-Storage:EGS-Games.lha")
  130.         (dest   "ram:")
  131.         (help   @copyfiles-help)
  132.         )
  133.  
  134.         (run "ram:lha x ram:egs-games.lha egs:")
  135.         (delete "ram:egs-games.lha")
  136.     )
  137. )
  138. (if Tools
  139.     (
  140.         (askdisk
  141.             (prompt "Please insert 'EGS-Tools' in any Driver.")
  142.             (assigns)
  143.             (dest "EGS-Tools")
  144.             (help @askdisk-help)
  145.         )
  146.  
  147.         (copyfiles
  148.             (prompt "copy EGS-Tools.lha to ram:")
  149.             (source "EGS-Tools:EGS-Tools.lha")
  150.             (dest   "ram:")
  151.             (help   @copyfiles-help)
  152.         )
  153.  
  154.         (run "ram:lha x ram:egs-tools.lha egs:")
  155.         (delete "ram:egs-tools.lha")
  156.     )
  157. )
  158. (if Pics
  159.     (
  160.         (askdisk
  161.             (prompt "Please insert 'EGS-Pictures' in any Driver.")
  162.             (assigns)
  163.             (dest "EGS-Pictures")
  164.             (help @askdisk-help)
  165.         )
  166.  
  167.         (copyfiles
  168.             (prompt "copy EGS-Pictures.lha to ram:")
  169.             (source "EGS-Pictures:EGS-Pictures.lha")
  170.             (dest   "ram:")
  171.             (help   @copyfiles-help)
  172.         )
  173.  
  174.         (run "ram:lha x ram:egs-pictures.lha egs:")
  175.         (delete "ram:egs-pictures.lha")
  176.     )
  177. )
  178. (if (exists "ram:lha" (noreq))
  179.     (delete "ram:lha")
  180. )
  181. (message "\n\n\nPlease check out the path in the \"devs:Monitors/egs\" file !\n"
  182.          "Change the EGS-path to \"assign EGS: " @egsdir "\" if needed !")
  183.  
  184. (set @default-dest @egsdir)
  185. (exit)
  186.